# -*- mode: snippet -*-
# name: shinyFeedback danger
# key: shiny_feedbackDanger
# key: feedbackDanger_shiny
# contributor: Shuguang Sun
# --
exists <- exists(input$dataset, "package:datasets")
shinyFeedback::feedbackDanger(${1:inputID}, ${2:!exists}, "${3:message}")
req(exists, cancelOutput = TRUE)